home *** CD-ROM | disk | FTP | other *** search
/ Belgian Amiga Club - ADF Collection / BS1 part 65.zip / BS1 part 65 / Final Copy v1.3.2 disk3.adf / FCFiles / sw_prologue.ps < prev    next >
Text File  |  1992-02-16  |  4KB  |  117 lines
  1. %%BeginProlog
  2. % Prolog for "Final Copy" PostScript® output
  3. % Date:   August 16, 1991
  4. % Copyright (c) 1991, SoftWood, Inc.
  5. % This file may not be modified or used for purposes other than
  6. % creating output with "Final Copy", so there.
  7. %
  8. % If you wish to make changes, make them in the file "user-def.ps"
  9. % located in the "FCFiles" directory and create a few PostScript
  10. % procedures, "UserDoc", "UserBOP", and "UserEOP". "Final Copy" will
  11. % automagically call these procedures at the beginning of the document
  12. % and the beginning and end of each page, respectively.
  13. %
  14. /SWDict 130 dict def
  15. SWDict begin
  16. /bd {bind def}bind def
  17. /ld {load def}bd
  18. /ed {exch def}bd
  19. /eq {exch def}bd
  20. /FF {gsave showpage grestore}bd
  21. /n /newpath ld
  22. /cp /currentpoint ld
  23. /clp /closepath ld
  24. /st /stroke ld
  25. /sh /show ld
  26. /tr /translate ld
  27. /m /moveto ld
  28. /rm /rmoveto ld
  29. /l /lineto ld
  30. /rl /rlineto ld
  31. /c /curveto ld
  32. /rc /rcurveto ld
  33. /gs /gsave ld
  34. /gr /grestore ld
  35. /clw /currentlinewidth ld
  36. /slw /setlinewidth ld
  37. /clj /currentlinejoin ld
  38. /slj /setlinejoin ld
  39. /clc /currentlinecap ld
  40. /slc /setlinecap ld
  41. /cml /currentmiterlimit ld
  42. /sml /setmiterlimit ld
  43. /cdash /currentdash ld
  44. /sdash /setdash ld
  45. /cg /currentgray ld
  46. /sg /setgray ld
  47. /cm /currentmatrix ld
  48. /sm /setmatrix ld
  49. /chsb /currenthsbcolor ld
  50. /shsb /sethsbcolor ld
  51. /crgb /currentrgbcolor ld
  52. /srgb /setrgbcolor ld
  53.  
  54. /ISOLatin1Enc [
  55. StandardEncoding 0 143 getinterval aload
  56. /dotlessi/grave/acute/circumflex/tilde/macron/breve/dotaccent/dieresis/.notdef
  57. /ring/cedilla/.notdef/quotedblright/ogonek/caron
  58. /space/exclamdown/cent/sterling/currency/yen/brokenbar/section/dieresis/copyright
  59. /ordfeminine/guillemotleft/logicalnot/hyphen/registered/macron/degree/plusminus
  60. /twosuperior/threesuperior/acute/mu/paragraph/periodcentered/cedilla/onesuperior
  61. /ordmasculine/guillemotright/onequarter/onehalf/threequarters/questiondown/Agrave
  62. /Aacute/Acircumflex/Atilde/Adieresis/Aring/AE/Ccedilla/Egrave/Eacute/Ecircumflex
  63. /Edieresis/Igrave/Iacute/Icircumflex/Idieresis/Eth/Ntilde/Ograve/Oacute/Ocircumflex
  64. /Otilde/Odieresis/multiply/Oslash/Ugrave/Uacute/Ucircumflex/Udieresis/Yacute/Thorn
  65. /germandbls/agrave/aacute/acircumflex/atilde/adieresis/aring/ae/ccedilla/egrave
  66. /eacute/ecircumflex/edieresis/igrave/iacute/icircumflex/idieresis/eth/ntilde/ograve
  67. /oacute/ocircumflex/otilde/odieresis/divide/oslash/ugrave/uacute/ucircumflex
  68. /udieresis/yacute/thorn/ydieresis ] def
  69.  
  70. % Blue book full re-encoding program
  71. % /reencodedict 5 dict def
  72. /ReEncode
  73. { % reencodedict begin
  74.     /newencoding exch def /newfontname exch def /basefontname exch def
  75.     /basefontdict basefontname findfont def    /newfont basefontdict maxlength dict def
  76.     basefontdict
  77.     {exch dup dup /FID ne exch /Encoding ne and
  78.         {exch newfont 3 1 roll put}{pop pop}ifelse
  79.     }forall
  80.     newfont /FontName newfontname put newfont /Encoding newencoding put
  81.     newfontname newfont definefont pop
  82.     % end
  83. }def
  84.  
  85. /fult 1 def
  86. /fuld -2 def
  87. /fstd 5 def
  88. % Gold's re-make font scheme
  89. /font {
  90.     /newfontname ed /basefontname ed
  91.     dup /sY ed mul 100 div /sX ed sY 0.3 mul /fstd ed
  92.     FontDirectory newfontname known not
  93.     { basefontname newfontname ISOLatin1Enc ReEncode } if
  94.     newfontname findfont [ sX 0 0 sY 0 0 ] makefont setfont
  95.     currentfont dup/FontInfo get/UnderlinePosition known not
  96.         {pop /Courier findfont}if
  97.         /FontInfo get/UnderlinePosition get 1000 div sY mul /fuld ed
  98.     currentfont dup/FontInfo get/UnderlineThickness known not
  99.         {pop /Courier findfont}if
  100.         /FontInfo get/UnderlineThickness get 1000 div sY mul /fult ed
  101. }def
  102.  
  103. /js { 4 2 roll moveto dup stringwidth pop 3 -1 roll exch sub exch dup length 1 sub 3 -1 roll exch div 0 3 -1 roll ashow }bd
  104. /ujs { 4 copy pop 3 1 roll n m 0 /fuld load rm /fult load slw 0 rl st js } bd
  105. /djs { 4 copy pop 3 1 roll n m 0 /fuld load 2 mul rm /fult load slw 0 rl st ujs } bd
  106. /sjs { 4 copy pop 3 1 roll n m 0 /fstd load rm /fult load slw 0 rl st js } bd
  107. /ms {m sh}bd
  108. /lms { cp /y0 ed /x0 ed sh cp /y1 ed /x1 ed x0 y0 n m rm x1 x0 sub y1 y0 sub rl /fult load slw st x1 y1 m }bd
  109. /ums { m 0 /fuld load 3 -1 roll lms }bd
  110. /dms { 3 copy n m stringwidth pop 0 /fuld load 2 mul rm /fult load slw 0 rl st ums }bd
  111. /sms { m 0 /fstd load 3 -1 roll lms }bd
  112. /F {findfont exch scalefont setfont}bd
  113. /box{m /ht ed/wd ed wd 0 rl 0 ht rl wd neg 0 rl clp}bd
  114. end
  115. % end of SoftWood dictionary
  116. %%EndProlog
  117.